home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 32
/
Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso
/
Aminet
/
comm
/
tcp
/
hserv.lha
/
hserv
/
Install
next >
Wrap
Text File
|
1999-05-24
|
5KB
|
208 lines
; $VER: Install_hserv 10.3 (16.4.99)
(procedure selDest
(if (exists "hserv:" (noreq))
(
(set #old-hserv-assign 1)
(set #old-hserv-assign-location (expandpath "hserv:"))
(set #installDir
(askdir
(prompt "Select the directory where you want to "
"install hserv 10.3 . You already have a 'hserv:' "
"assign on your system, so it is assumed that this "
"is the location of an older version of hserv that "
"you want to upgrade.")
(help "Select the directory where you want to "
"install hserv 10.3 . Since you already have a 'hserv:' "
"assign on your system you should probably accept "
"the default. Remeber hserv no logner needs"
"hserv: assign to hserv to work")
(default "hserv:")
)
)
)
(
(set #old-hserv-assign 0)
(if (exists "Work:" (noreq))
(set #installDir "Work:")
(set #installDir "SYS:")
)
(set #installDir
(askdir
(prompt "Select the directory where you want to "
"install hserv 10.3 . An additional directory "
"will *NOT* be created at the location you specify.")
(help "Select the directory where you want to "
"install hserv 10.3 . All necessary files will be copied "
"to that directory during installation. A new directory "
"will *NOT* be created at the location you specify. "
"This means if you want hserv to be installed in its "
"own directory then you need to create that directory "
"yourself first.")
(default #installDir)
)
)
)
)
)
(procedure copyLibs
(set #copyLibsHelp "Copying the libraries needed by hserv and hconf")
(copylib
(prompt "Installing rxsocket.library to LIBS:" )
(help #copyLibsHelp)
(source (tackon #source-dir "LIBS/rxsocket.library"))
(dest "LIBS:")
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing rmh.library to LIBS:" )
(help #copyLibsHelp)
(source (tackon #source-dir "LIBS/rmh.library"))
(dest "LIBS:")
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing rxwiz.library to LIBS:" )
(help #copyLibsHelp)
(source (tackon #source-dir "LIBS/rxwiz.library"))
(dest "LIBS:")
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing rxasl.library to LIBS:" )
(help #copyLibsHelp)
(source (tackon #source-dir "LIBS/rxasl.library"))
(dest "LIBS:")
(confirm)
(optional "askuser" "force")
)
)
(welcome "Welcome to the hserv 10.3 installation.\n")
(set @app-name "hserv 10.3")
(complete 0)
(set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
(expandpath @icon))
)
(selDest)
(set @default-dest #installDir)
(complete 20)
; start actual installation
; delete obsolete files from older hserv versions
(delete (tackon #installDir "main/gethostname.rexx") (optional force))
(delete (tackon #installDir "main/errlog.rexx") (optional force))
(delete (tackon #installDir "main/transferlog.rexx") (optional force))
(delete (tackon #installDir "main/readconfig.rexx") (optional force))
(delete (tackon #installDir "main/sorryTermite.rexx") (optional force))
(delete (tackon #installDir "main/checkIP.rexx") (optional force))
(delete (tackon #installDir "main/checkAuth.rexx") (optional force))
(delete (tackon #installDir "main/getIdentify.rexx") (optional force))
(delete (tackon #installDir "main/authfun.rexx") (optional force))
(delete (tackon #installDir "main/checksince.rexx") (optional force))
(delete (tackon #installDir "main/getheadstring.rexx") (optional force))
(delete (tackon #installDir "main/getmime.rexx") (optional force))
(delete (tackon #installDir "main/gmtinetcurrentdate.rexx") (optional force))
(delete (tackon #installDir "main/gmtinetdate.rexx") (optional force))
(delete (tackon #installDir "main/gmtinetfiledate.rexx") (optional force))
;copy libraries
(copyLibs)
;copy rxs
(copylib
(prompt "Installing rxs to C:")
(help "This will install rxs to C:")
(source (tackon #source-dir "c/rxs"))
(dest "C:")
(confirm)
(optional "askuser" "force")
)
(complete 30)
;copy root
(copyfiles
(source (tackon #source-dir "temp"))
(dest (#installDir))
(optional force)
(all)
)
; delete Install files
(delete (tackon #installDir "Install") (optional force))
(delete (tackon #installDir "Install.info") (optional force))
(complete 40)
; copy main
(if (not (exists (tackon #installDir "main")))
(makedir (tackon #installDir "main"))
)
(copyfiles
(source (tackon #source-dir "main"))
(dest (tackon #installDir "main"))
(optional force)
(all)
)
(complete 50)
; copy htdocs
(if (not (exists (tackon #installDir "htdocs")))
(makedir (tackon #installDir "htdocs"))
)
(copyfiles
(source (tackon #source-dir "htdocs"))
(dest (tackon #installDir "htdocs"))
(optional force)
(all)
)
(complete 60)
; copy conf
(if (not (exists (tackon #installDir "conf")))
(makedir (tackon #installDir "conf"))
)
(copyfiles
(source (tackon #source-dir "conf"))
(dest (tackon #installDir "conf"))
(optional force)
(all)
)
(complete 70)
; copy cgi-bin
(if (not (exists (tackon #installDir "cgi-bin")))
(makedir (tackon #installDir "cgi-bin"))
)
(copyfiles
(source (tackon #source-dir "cgi-bin"))
(dest (tackon #installDir "cgi-bin"))
(optional force)
(all)
)
(complete 80)
; copy log
(if (not (exists (tackon #installDir "logs")))
(makedir (tackon #installDir "log"))
)
(complete 90)
(complete 100)